#!/usr/bin/perl 
# scope1.pl
use warnings;
use strict;

our $scalar = "global";
print "Outside the block, \$scalar is a $scalar variable \n";
{
      my $scalar = "lexical";
      my $other_scalar = "I am also lexical";
      print "Inside the block, \$scalar\ is a $scalar variable \n";
}
print "Outside the block, \$scalar is that same $scalar variable \n";